home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / board / KlndAGA1.lha / Install next >
Text File  |  1994-06-01  |  6KB  |  232 lines
  1. (complete 0)
  2. (set default_lang 4)
  3.  
  4. (set #bad-kick
  5. (cat "You must be using Kickstart 3.0 to install this game"
  6. ))
  7.  
  8. (set #which-disk
  9. (cat "In which partition should the game be installed?"
  10. ))
  11.  
  12. (set #which-disk-help
  13. (cat "\nThis section lets you choose on which hard drive partition the "
  14.      "Game files will be installed. "
  15.      @askdir-help
  16. ))
  17.  
  18. ;=============================================================================
  19. ; make sure we are running under V39
  20.  
  21. (if (< (/ (getversion) 65536) 39)
  22. (
  23.     (abort #bad-kick)
  24. ))
  25.  
  26. (user 0)
  27. (welcome)
  28. (set old_level @user-level)
  29.  
  30. ;=============================================================================
  31. ; get target directory where game is to be installed
  32.  
  33. (set old_wb ("SYS:"))
  34. (user 2)
  35. (set target (askdir (prompt #which-disk)
  36.             (help #which-disk-help)
  37.             (default "")
  38.             (disk)
  39.             ))
  40. (user old_level)
  41.  
  42. (copyfiles (source "REKO01:")
  43.            (dest "RAM:")
  44.            (pattern "lz")
  45. )
  46.  
  47. (set workingMsg ("Extracting files from Main archive"))
  48.  
  49. (working workingMsg)
  50.  
  51. (run ("RAM:lz x REKO01:MAIN.LZH ram:"))
  52.  
  53. (complete 15)
  54.  
  55. (makedir (tackon target "REKO-Productions"))
  56. (set wtarget target)
  57.  
  58. (copyfiles (source "RAM:REKO.infa")
  59.            (dest wtarget)
  60. )
  61.  
  62. (rename (tackon wtarget "REKO.infa") (tackon wtarget "REKO-Productions.info"))
  63.  
  64. (set target (tackon target "REKO-Productions"))
  65. (set @default-dest target)
  66. (set wtarget target)
  67.  
  68. ;=============================================================================
  69. ; get the version from medplayer.library currently installed
  70.  
  71.     (if (= (exists "Libs:medplayer.library") 1)
  72.         (
  73.         (protect "Libs:medplayer.library" "+rwed")
  74.         )
  75.     )
  76.     (copylib
  77.         (prompt    ("Copying %s to %s" "RAM:medplayer.library" "Libs:"))
  78.         (help    copyLibFileHelp
  79.             "\n"
  80.             "If you already have a copy of this library in the selected destination directory, the library "
  81.             "included on the distribution disk will be compared to the one you "
  82.             "already have. If your current library is an old version, the newer "
  83.             "version will be installed.\n"
  84.             "\n"
  85.             @copylib-help
  86.         )
  87.         (source "RAM:medplayer.library")
  88.         (dest "Libs:")
  89.         (confirm)
  90.     )
  91.  
  92. (complete 20)
  93.  
  94. ;=============================================================================
  95. ; Put REKOCHARS in Fonts: directory
  96.  
  97. (copyfiles (source "RAM:")
  98.        (dest "FONTS:")
  99.        (pattern "REKOCH#?")
  100. )
  101.  
  102. ;=============================================================================
  103. ; Put REKO command in C: directory
  104.  
  105. (copyfiles (source "RAM:REKO")
  106.        (dest "C:")
  107. )
  108.  
  109. ;=============================================================================
  110. ; make some new drawers
  111.  
  112. (makedir (tackon wtarget "PICS"))
  113. (makedir (tackon wtarget "MUSIC"))
  114. (makedir (tackon wtarget "CARDS"))
  115.  
  116.  
  117. (copyfiles (source "RAM:REKO.infa")
  118.        (dest wtarget)
  119. )
  120. (rename (tackon wtarget "REKO.infa") (tackon wtarget "MAKE-CARDS.info"))
  121.  
  122. (copyfiles (source "RAM:")
  123.        (dest wtarget)
  124.        (pattern "MAKE#?")
  125. )
  126.  
  127. (copyfiles (source "RAM:KlondikeII.info")
  128.        (dest wtarget)
  129. )
  130.  
  131. (copyfiles (source "RAM:KlondikeII")
  132.        (dest wtarget)
  133. )
  134.  
  135. (copyfiles (source "RAM:REKO.Prefs.info")
  136.        (dest wtarget)
  137. )
  138.  
  139. (copyfiles (source "RAM:REKO.Prefs")
  140.        (dest wtarget)
  141. )
  142.  
  143. (complete 25)
  144.  
  145. (copyfiles (source "RAM:")
  146.        (dest wtarget)
  147.        (pattern "REKO.Docs#?")
  148. )
  149.  
  150. (copyfiles (source "RAM:FullView")
  151.        (dest wtarget)
  152. )
  153.  
  154. (copyfiles (source "RAM:")
  155.        (dest wtarget)
  156.        (pattern "REKO.QRCard#?")
  157. )
  158.  
  159. (complete 30)
  160.  
  161. (set workingMsg ("Extracting files from Pics archive"))
  162.  
  163. (working workingMsg)
  164.  
  165. (set destdir (tackon wtarget "PICS/"))
  166.  
  167. (run ("RAM:lz x REKO01:PICS.LZH \"%s\"" destdir))
  168.  
  169. (complete 45)
  170.  
  171. (set workingMsg ("Extracting files from Music archive"))
  172.  
  173. (working workingMsg)
  174.  
  175. (set destdir (tackon wtarget "MUSIC/"))
  176.  
  177. (run ("RAM:lz x REKO02:MUSIC.LZH \"%s\"" destdir))
  178.  
  179. (complete 65)
  180.  
  181. (set workingMsg ("Extracting files from Cards archive"))
  182.  
  183. (working workingMsg)
  184.  
  185. (set destdir (tackon wtarget "CARDS/"))
  186.  
  187. (run ("RAM:lz x REKO03:CARDS.LZH \"%s\"" destdir))
  188.  
  189. (complete 95)
  190.  
  191. (delete    "RAM:lz")
  192. (delete "ram:Rekochars.FONT")
  193. (delete "ram:REKO.QRcard.info")        
  194. (delete "ram:REKO.QRcard")              
  195. (delete "ram:REKO.Prefs.info")          
  196. (delete "ram:REKO.Prefs")               
  197. (delete "ram:REKO.infa")                
  198. (delete "ram:REKO.Docs.info")           
  199. (delete "ram:REKO.Docs")                
  200. (delete "ram:Reko")                     
  201. (delete "ram:medplayer.library")        
  202. (delete "ram:KlondikeII.info")          
  203. (delete "ram:KlondikeII")               
  204. (delete "ram:FullView")                 
  205.  
  206. (delete "ram:MAKE-CARDS/Various-Frames&Symbols")   
  207. (delete "ram:MAKE-CARDS/REKO-cutter2")             
  208. (delete "ram:MAKE-CARDS/REKO-cutter1")             
  209. (delete "ram:MAKE-CARDS/PREF-Frames")              
  210. (delete "ram:MAKE-CARDS/Example4")                 
  211. (delete "ram:MAKE-CARDS/Example3")                 
  212. (delete "ram:MAKE-CARDS/Example2")                 
  213. (delete "ram:MAKE-CARDS/Example1")                 
  214.  
  215. (delete "ram:MAKE-CARDS/RED/SYMBOLS")                  
  216. (delete "ram:MAKE-CARDS/RED/FRAME")                    
  217. (delete "ram:MAKE-CARDS/RED/CARD01")                   
  218. (delete "ram:MAKE-CARDS/RED/CARD00")                   
  219.  
  220. (delete "ram:MAKE-CARDS/GREEN/SYMBOLS")                  
  221. (delete "ram:MAKE-CARDS/GREEN/FRAME")                    
  222. (delete "ram:MAKE-CARDS/GREEN/CARD01")                   
  223. (delete "ram:MAKE-CARDS/GREEN/CARD00")                   
  224.  
  225. (delete "ram:MAKE-CARDS/BLUE/SYMBOLS")                  
  226. (delete "ram:MAKE-CARDS/BLUE/FRAME")                    
  227. (delete "ram:MAKE-CARDS/BLUE/CARD01")                   
  228. (delete "ram:MAKE-CARDS/BLUE/CARD00")                   
  229.  
  230. (delete "ram:REKOCHARS/22")
  231. (complete 100)
  232.